home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / NPC_ISLAND.TCL < prev    next >
Encoding:
Text File  |  2002-05-28  |  647 b   |  32 lines
  1. #
  2. # npc_island.tcl
  3. #
  4. # State transitions for npc islands.
  5. #
  6.  
  7. proc npc_islandwatch_normal {} {
  8.  
  9.     if {[.iskilled] == "true"} {
  10.         .announcestate explode
  11.     }
  12. }    
  13.  
  14. proc npc_islandwatch_explode {} {
  15.  
  16.     # there is currently no animation, so we remove the island
  17.     # in a depth of 1000 meters
  18.     set island_pos [.getposition]
  19.     if {[lindex $island_pos 1] < -1000} {
  20.         .setremoveable true
  21.     }
  22. }    
  23.  
  24. proc npc_islandwatch_cinematic {} {
  25.  
  26.     if {[.iscinematicfinished] == "true"} {
  27.         .announcestate normal
  28.     } elseif {[.iskilled] == "true"} {
  29.         .announcestate explode
  30.     }    
  31. }    
  32.